within ThreeD_MBS_Dynamics.Examples.RollingDisc;

model Base
  extends BaseBody;
  VisualShape Plane(
    r0={0,0,0},
    Shape="box",
    LengthDirection={0,-1,0},
    WidthDirection={0,0,1},
    Length=0.002,
    Width=20,
    Height=20,
    Material={0.4,0.6,0,0});
//    Length=0.1
  annotation (Diagram);
equation
  OutPort.r = {0,0,0};
  OutPort.v = {0,0,0};
  OutPort.a = {0,0,0};
  OutPort.T = [1, 0, 0; 0, 1, 0; 0, 0, 1];
  OutPort.omega = {0,0,0};
  OutPort.epsilon = {0,0,0};
  Plane.S = OutPort.T;
  Plane.r = OutPort.r;
end Base;
